home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dice3.dir / 00037_Script_37 < prev    next >
Text File  |  1979-12-31  |  9KB  |  238 lines
  1. on startmovie
  2.   Global WurfWerte, Felder, WurfStatus, WahlStatus, AktWurf,AusgewΣhlte, AktGewΣhlt, GewΣhltWurf, WurfWahl, AnzBΣlle, Schⁿsse, maxlevel, level, www
  3.   -- Variablen setzen
  4.   set maxlevel=12
  5.   set level=1
  6.   set WurfStatus=0
  7.   set AnzBΣlle=1
  8.   set WahlStatus=0
  9.   set AktGewΣhlt=0
  10.   set AusgewΣhlte=0
  11.   set AktWurf=0
  12.   set Schⁿsse=0
  13.   set WurfWahl=[0,0,0,0,0]
  14.   set GewΣhltWurf=[0,0,0,0,0]
  15.   set WurfWerte=[1,1,1,1,1]
  16.   set Felder=[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
  17.   set the text of member "AnzBΣlle"=string(AnzBΣlle)
  18.   set the text of member "level"=string(level)
  19.   repeat with i= 40 to 49
  20.     puppetsprite i, true
  21.     set the visible of sprite i to true
  22.   end repeat
  23.   repeat with i= 50 to 54
  24.     puppetsprite i, true
  25.     set the visible of sprite i to false
  26.   end repeat
  27.   repeat with i= 29 to 36
  28.     set the visible of sprite i to false
  29.   end repeat
  30. end startmovie
  31.  
  32. on Schieber_auf
  33.   Global Schieber, Felder, WurfStatus, WahlStatus, AktWurf, WurfWahl, WurfWerte, GewΣhltWurf, AusgewΣhlte
  34.   if WahlStatus=0 then exit
  35.   if getAt(Felder,Schieber)<0 then
  36.     if Schieber>6 then
  37.       puppetsound 2, "Bling"
  38.       set the loch of sprite Schieber+9 to 408
  39.       updatestage
  40.       set the loch of sprite Schieber+9 to 378
  41.       updatestage
  42.     else  
  43.       puppetsound 2, "Bling"
  44.       set the loch of sprite Schieber+9 to 332
  45.       updatestage
  46.       set the loch of sprite Schieber+9 to 302
  47.       updatestage
  48.     end if
  49.     if getAt(Felder,8)<0 then
  50.       puppetsound 2, "Bling"
  51.       set the loch of sprite 17 to 332
  52.       updatestage
  53.       set the loch of sprite 17 to 302
  54.       updatestage
  55.       set the loch of sprite 25 to 408
  56.       updatestage
  57.       set the loch of sprite 25 to 378
  58.       updatestage
  59.     end if
  60.     Wert_setzen
  61.     Summe_setzen
  62.     set WurfStatus=1
  63.     set WahlStatus=0
  64.     set AktWurf=0
  65.     set WurfWahl=[0,0,0,0,0]
  66.     set GewΣhltWurf=[0,0,0,0,0]
  67.     set WurfWerte=[1,1,1,1,1]
  68.     set AusgewΣhlte=0
  69.     set the member of sprite 30 to member 56 of castlib "Internal"
  70.     repeat with i=40 to 44
  71.       set the visible of sprite i+10 = false
  72.       set the visible of sprite i = true
  73.       set the visible of sprite i+5 = true
  74.       updatestage
  75.     end repeat
  76.   end if
  77. end Schieber_auf  
  78.  
  79. on Wert_setzen
  80.   Global Schieber, WurfWerte, Felder
  81.   set TempWert=0
  82.   case Schieber of
  83.     1:
  84.       repeat with i=1 to 5
  85.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+1
  86.       end repeat
  87.       setAt Felder, 1, TempWert
  88.       set the text of member "einer"=string(TempWert)
  89.     2:
  90.       repeat with i=1 to 5
  91.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+2
  92.       end repeat
  93.       setAt Felder, 2, TempWert
  94.       set the text of member "zweier"=string(TempWert)
  95.     3:
  96.       repeat with i=1 to 5
  97.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+3
  98.       end repeat
  99.       setAt Felder, 3, TempWert
  100.       set the text of member "dreier"=string(TempWert)
  101.     4:
  102.       repeat with i=1 to 5
  103.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+4
  104.       end repeat
  105.       setAt Felder, 4, TempWert
  106.       set the text of member "vierer"=string(TempWert)
  107.     5:
  108.       repeat with i=1 to 5
  109.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+5
  110.       end repeat
  111.       setAt Felder, 5, TempWert
  112.       set the text of member "fⁿnfer"=string(TempWert)
  113.     6:
  114.       repeat with i=1 to 5
  115.         if getAt(WurfWerte,i)=Schieber then set TempWert=TempWert+6
  116.       end repeat
  117.       setAt Felder, 6, TempWert
  118.       set the text of member "sechser"=string(TempWert)
  119.     9:
  120.       sort WurfWerte
  121.       repeat with i=1 to 3
  122.         if getAt(WurfWerte,i)=getAt(WurfWerte,i+1) and getAt(WurfWerte,i+1)=getAt(WurfWerte,i+2) then
  123.           set TempWert = getAt(WurfWerte,1) + getAt(WurfWerte,2) + getAt(WurfWerte,3) + getAt(WurfWerte,4) + getAt(WurfWerte,5)
  124.           exit repeat
  125.         end if
  126.       end repeat
  127.       setAt Felder, 9, TempWert
  128.       set the text of member "3pasch"=string(TempWert)
  129.     10:
  130.       sort WurfWerte
  131.       repeat with i=1 to 2
  132.         if getAt(WurfWerte,i)=getAt(WurfWerte,i+1) and getAt(WurfWerte,i+1)=getAt(WurfWerte,i+2) and getAt(WurfWerte,i+2)=getAt(WurfWerte,i+3) then
  133.           set TempWert = getAt(WurfWerte,1) + getAt(WurfWerte,2) + getAt(WurfWerte,3) + getAt(WurfWerte,4) + getAt(WurfWerte,5)
  134.           exit repeat
  135.         end if
  136.       end repeat
  137.       setAt Felder, 10, TempWert
  138.       set the text of member "4pasch"=string(TempWert)   
  139.     11:
  140.       sort WurfWerte
  141.       if getAt(WurfWerte,1)=getAt(WurfWerte,2) and getAt(WurfWerte,2)<>getAt(WurfWerte,3) and getAt(WurfWerte,3)=getAt(WurfWerte,4) and getAt(WurfWerte,4)=getAt(WurfWerte,5) then
  142.         set TempWert=25
  143.       else if getAt(WurfWerte,1)=getAt(WurfWerte,2) and getAt(WurfWerte,2)=getAt(WurfWerte,3) and getAt(WurfWerte,3)<>getAt(WurfWerte,4) and getAt(WurfWerte,4)=getAt(WurfWerte,5) then
  144.         set TempWert=25
  145.       end if
  146.       setAt Felder, 11, TempWert
  147.       set the text of member "fullhouse"=string(TempWert)
  148.     12:
  149.       sort WurfWerte
  150.       if getAt(WurfWerte,1)=getAt(WurfWerte,2)-1 and getAt(WurfWerte,2)=getAt(WurfWerte,3)-1 and getAt(WurfWerte,3)=getAt(WurfWerte,4)-1 then
  151.         set TempWert=30
  152.       else if getAt(WurfWerte,2)=getAt(WurfWerte,3)-1 and getAt(WurfWerte,3)=getAt(WurfWerte,4)-1 and getAt(WurfWerte,4)=getAt(WurfWerte,5)-1 then
  153.         set TempWert=30
  154.       else if getAt(WurfWerte,1)=getAt(WurfWerte,3)-1 and getAt(WurfWerte,3)=getAt(WurfWerte,4)-1 and getAt(WurfWerte,4)=getAt(WurfWerte,5)-1 then
  155.         set TempWert=30
  156.       else if getAt(WurfWerte,1)=getAt(WurfWerte,2)-1 and getAt(WurfWerte,2)=getAt(WurfWerte,4)-1 and getAt(WurfWerte,4)=getAt(WurfWerte,5)-1 then
  157.         set TempWert=30
  158.       else if getAt(WurfWerte,1)=getAt(WurfWerte,2)-1 and getAt(WurfWerte,2)=getAt(WurfWerte,3)-1 and getAt(WurfWerte,3)=getAt(WurfWerte,5)-1 then
  159.         set TempWert=30
  160.       end if
  161.       setAt Felder, 12, TempWert
  162.       set the text of member "kleine"=string(TempWert)
  163.     13:
  164.       sort WurfWerte
  165.       if getAt(WurfWerte,1)=getAt(WurfWerte,2)-1 and getAt(WurfWerte,2)=getAt(WurfWerte,3)-1 and getAt(WurfWerte,3)=getAt(WurfWerte,4)-1 and getAt(WurfWerte,4)=getAt(WurfWerte,5)-1 then
  166.         set TempWert=40
  167.       end if
  168.       setAt Felder, 13, TempWert
  169.       set the text of member "gro▀e"=string(TempWert)
  170.     14:
  171.       sort WurfWerte
  172.       if getAt(WurfWerte,1)=getAt(WurfWerte,2) and getAt(WurfWerte,2)=getAt(WurfWerte,3) and getAt(WurfWerte,3)=getAt(WurfWerte,4) and getAt(WurfWerte,4)=getAt(WurfWerte,5) then
  173.         set TempWert=50
  174.       end if
  175.       setAt Felder, 14, TempWert
  176.       set the text of member "top"=string(TempWert)
  177.     15:
  178.       sort WurfWerte
  179.       set TempWert = getAt(WurfWerte,1) + getAt(WurfWerte,2) + getAt(WurfWerte,3) + getAt(WurfWerte,4) + getAt(WurfWerte,5)
  180.       setAt Felder, 15, TempWert
  181.       set the text of member "chance"=string(TempWert)
  182.   end case
  183. end Wert_setzen
  184.  
  185. on Summe_setzen
  186.   Global Felder, Fertig, AnzBΣlle
  187.   set Fertig=1
  188.   set TempWert=0
  189.   repeat with i=1 to 6
  190.     if GetAt(Felder,i)>-1 then
  191.       set TempWert=TempWert+GetAt(Felder,i)
  192.     else
  193.       set fertig=0
  194.     end if
  195.   end repeat
  196.   if TempWert>64 then
  197.     setAt(Felder,7,25)
  198.     puppetsound 2, "Bling"
  199.     set the loch of sprite 16 to 332
  200.     updatestage
  201.     set the loch of sprite 16 to 302
  202.     updatestage
  203.     set the text of member "bonus"="25"
  204.     set TempWert=TempWert+25
  205.   end if  
  206.   setAt(Felder,8,TempWert)
  207.   set the text of member "summe1"=string(TempWert)
  208.   repeat with i=9 to 15
  209.     if GetAt(Felder,i)>-1 then
  210.       set TempWert=TempWert+GetAt(Felder,i)
  211.     else
  212.       set fertig=0
  213.     end if
  214.   end repeat
  215.   set the text of member "gesamt"=string(TempWert)
  216.   if TempWert>300 then
  217.     set AnzBΣlle=4
  218.   else if TempWert>225 then
  219.     set AnzBΣlle=3
  220.   else if TempWert>150 then
  221.     set AnzBΣlle=2
  222.   else if TempWert>75 then
  223.     set AnzBΣlle=1
  224.   else
  225.     set AnzBΣlle=0
  226.   end if
  227.   set the text of member "AnzBΣlle"=string(AnzBΣlle)
  228.   set